home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / vbjigsaw.zip / OPENFILE.TXT < prev   
Text File  |  1991-05-30  |  420b  |  40 lines
  1. Sub Drive1_Change ()
  2.  
  3.     ChDrive Drive1.Drive
  4.     Dir1.Path = CurDir$
  5.  
  6. End Sub
  7.  
  8. Sub Dir1_Change ()
  9.  
  10.     ChDir Dir1.Path
  11.     File1.Path = Dir1.Path
  12.  
  13. End Sub
  14.  
  15. Sub File1_DblClick ()
  16.  
  17.     Hide
  18.  
  19. End Sub
  20.  
  21. Sub Cmd_OK_Click ()
  22.  
  23.     Hide
  24.  
  25. End Sub
  26.  
  27. Sub Form_Unload (Cancel As Integer)
  28.  
  29.     Cancel = TRUE
  30.     Hide
  31.  
  32. End Sub
  33.  
  34. Sub Form_Load ()
  35.  
  36.     Remove_Items_From_Sysmenu OpenFile
  37.  
  38. End Sub
  39.  
  40.